home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / GAM / R-S / RoboWar 2.3.sea / RoboWar 2.3 / Robots / Suicide < prev    next >
Text File  |  1990-04-02  |  450b  |  36 lines
  1. # Suicide!
  2. # Take your enemy out with you!
  3. # Written 2 March 1990 by Tim Seufert
  4.  
  5. start:
  6.     9 speedx' store
  7.     7 speedy' store
  8.  
  9. main:
  10.     x 50 < posx if
  11.     x 250 > negx if
  12.     y 50 < posy if
  13.     y 250 > negy if
  14.     collision HariKari if
  15.     main jump
  16.  
  17. posx:
  18.     9 speedx' store
  19.     return
  20.  
  21. negx:
  22.     -9 speedx' store
  23.     return
  24.  
  25. posy:
  26.     7 speedy' store
  27.     return
  28.  
  29. negy:
  30.     -7 speedy' store
  31.     return
  32.  
  33. HariKari:
  34.     150 nuke' store
  35.     return
  36.